home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / terms / btpv1.lzh / ascii rs-323 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-07-16  |  302 b   |  18 lines
  1. 10 REM
  2. 20 REM
  3. 100 OPEN2,2,3,CHR$(6+32)+CHR$(32+128)
  4. 110 GET#2,A$
  5. 200 REM
  6. 210 GET B$
  7. 220 IF B$<>"" THEN PRINT#2,B$;
  8. 230 GET#2,C$
  9. 240 PRINT B$;C$;
  10. 250 SR=ST:IF SR=0 OR SR=8 THEN 200
  11. 310 PRINT "ERROR: ";
  12. 320 IF SR AND 1 THEN PRINT "PARITY"
  13. 330 IF SR AND 2 THEN PRINT "PARITY"
  14. 340 IF SR AND 4 THEN PRINT "PARITY"
  15. 350 IF SR AND 128 THEN PRINT "PARITY"
  16. 360 IF (PEEK(673) AND 1)THEN 360
  17. 370 CLOSE 2
  18.